home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2009 February / PCWFEB09.iso / Software / Linux / Kubuntu 8.10 / kubuntu-8.10-desktop-i386.iso / casper / filesystem.squashfs / usr / share / perl5 / Debconf / Gettext.pm < prev    next >
Text File  |  2008-10-10  |  301b  |  28 lines
  1. #!/usr/bin/perl -w
  2. # This file was preprocessed, do not edit!
  3.  
  4.  
  5. package Debconf::Gettext;
  6. use strict;
  7.  
  8.  
  9. BEGIN {
  10.     eval 'use Locale::gettext';
  11.     if ($@) {
  12.         eval q{
  13.             sub gettext {
  14.                 return shift;
  15.             }
  16.         };
  17.     }
  18.     else {
  19.         textdomain('debconf');
  20.     }
  21. }
  22.  
  23. use base qw(Exporter);
  24. our @EXPORT=qw(gettext);
  25.  
  26.  
  27. 1
  28.